Private Sub CommandButton28_Click()
Dim s As String, l As Long, b As Boolean
Set theCalm = Nothing

Set theCalm = New cCalendar

With theCalm
    .BackColor = theCal.BackColor
    .ControlTipText = theCal.ControlTipText
    .Day = theCal.Day
    
    s = theCal.DayFont.Name
    .DayFont.Name = s
    l = theCal.DayFont.Size
    .DayFont.Size = l
    b = theCal.DayFont.Bold
    .DayFont.Bold = b
    b = theCal.DayFont.Italic
    .DayFont.Italic = b
    b = theCal.DayFont.Underline
    .DayFont.Underline = b
    b = theCal.DayFont.Strikethrough
    .DayFont.Strikethrough = b
    
    .DayFontColor = theCal.DayFontColor
    .DayLength = theCal.DayLength
    .FirstDay = theCal.FirstDay
    
    .RightToLeft = theCal.RightToLeft
    .SaturdaySelectable = theCal.SaturdaySelectable
    .SundaySelectable = theCal.SundaySelectable
    
    s = theCal.GridFont.Name
    .GridFont.Name = s
    l = theCal.GridFont.Size
    .GridFont.Size = l
    b = theCal.GridFont.Bold
    .GridFont.Bold = b
    b = theCal.GridFont.Italic
    .GridFont.Italic = b
    b = theCal.GridFont.Underline
    .GridFont.Underline = b
    b = theCal.GridFont.Strikethrough
    .GridFont.Strikethrough = b
    
    
    .GridFontColor = theCal.GridFontColor
    .HeaderBackColor = theCal.HeaderBackColor
    '.Height = theCal.Height
    '.Left = theCal.Left
    .Month = theCal.Month
    .MonthLength = theCal.MonthLength
    .SaturdayBackColor = theCal.SaturdayBackColor
    .ShowDateSelectors = theCal.ShowDateSelectors
    .ShowDays = theCal.ShowDays
    .ShowTitle = theCal.ShowTitle
    
    .SundayBackColor = theCal.SundayBackColor
    .SelectedBackColor = theCal.SelectedBackColor
    .UnSelectableBackColor = theCal.UnSelectableBackColor
    
    s = theCal.TitleFont.Name
    .TitleFont.Name = s
    l = theCal.TitleFont.Size
    .TitleFont.Size = l
    b = theCal.TitleFont.Bold
    .TitleFont.Bold = b
    b = theCal.TitleFont.Italic
    .TitleFont.Italic = b
    b = theCal.TitleFont.Underline
    .TitleFont.Underline = b
    b = theCal.TitleFont.Strikethrough
    .TitleFont.Strikethrough = b
    
    
    .TitleFontColor = theCal.TitleFontColor
    '.Top = theCal.Top
    .ValueIsNull = theCal.ValueIsNull
    .Visible = theCal.Visible
    .UseDefaultBackColors = theCal.UseDefaultBackColors
    '.Width = theCal.Width
    .Year = theCal.Year
    .YearFirst = theCal.YearFirst
    
    .MACFix = theCal.MACFix
    
End With

theCalm.Add_Calendar_into_Frame Me.Frame2
Me.CommandButton28.Enabled = False
Me.cmdAddWidth.Enabled = True
Me.CommandButton47.Enabled = True

End Sub